home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 7: Sunsite / Linux Cubed Series 7 - Sunsite Vol 1.iso / system / shells / scsh-0.4 / scsh-0 / scsh-0.4.2 / scsh / enumconst.scm < prev    next >
Text File  |  1995-10-13  |  511b  |  17 lines
  1. ;;; Copyright (c) 1994 by Olin Shivers.
  2.  
  3. ;;; Handy for defining random flags and constants.
  4. ;;; (define-enum-constant "errno" intr 9) => (define errno/intr 9)
  5. ;;; Ugly, but it works.
  6.  
  7. ;;; The question: is / the best separator? Alternates: $ . |
  8.  
  9.  
  10. (define-syntax define-enum-constant
  11.   (lambda (form rename compare)
  12.     (let ((%define (rename 'define))
  13.       (var (string->symbol (string-append (cadr  form) "/"
  14.                           (symbol->string (caddr form)))))
  15.       (value (cadddr form)))
  16.       `(,%define ,var ,value))))
  17.